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1984 02:11:05  VAX-11 Bliss-32 v4.0-742 p 
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MODULE CLOSFL (LANGUAGE (8115832 
IDENT 4-000 


BEGIN 


LRA RRR RARER AEA ERATE AERA EAE ERATE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


Hed Hal fe krck IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
t® ONL ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Hl INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
’ 
* 
* 
* 
* 
'® TRANSFERRED. ® 
* 
+ 
* 
. 
* 
* 
* 
* 
, 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. ePOkay itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT 
3 Close out current file 
; ENVIRONMENT: 
3 i Starlet operating system, including privileged system services 
3 and internal exec routines 
a1 1 ie 
4 004 
4 004 
44 pote 
rs Boee AUTHOR: D. H. GILLESPIE, CREATION DATE: 19-MAY-77 12:00 
47 004 MODIFIED BY: 
48 0048 
49 0049 V03-006 MMD0308 Meg Dumont 5-Jul-1984 13:56 
Fix to ensure the number of headers gotten in the open 


is the number written on the close. 


V03-005 MMD0276 Neg bu 23-Mar-1984 9:54 
Clear the VCBSV_FI ACCESS. flag on output 


v03-004 ROW0258 Ralph 0. Weber 17-NOV-1983 
The Paul Painter Memorial Enhancement 
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Sooooooo 
Soooooceoo 
MADAMA 
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1 
18-sep- =1386 0: 211: AX-11 Bliss-32 V4.0-742 Page 2 
14-Sep-1984 12:46: 3 MTAACP.SRCIJCLOSFL.832;1 (1) 
Named for one of the unfortunate customers who py/ tered og 5 
to determine the great UCBSL_MT_RECORD secret while it ha q_te 
create a woareyr ten magtape driver, this chan e eliminates 
use of the device dependent field, UCBSL_MT_RECORD in lever of 
the device independent field, UCB$L_RECORD.~ 


V03-003 MMD0154 Meg Dumont, 26-Apr-1983 9:12 
Change reference te 80 to the symbol PANS! LBLSZ. Change 
the routine WRITE_TRAILERS to write an EOF4 if the mount 
switch and number of Labels originally written (i.e. if 
we appending to the file) allows. 


' 

1 

' 

' 

' 

J 

' 

' 

' 

' 

' 

' 

: v03-002 mMD0002 Dumont, 3-Jan=-1983 15:27 
: Add code to check. oO ensure the user is not trying to write over 
the trailer labels of the file. 

' 
' 
' 
' 
' 
' 
' 
' 
' 


V03-001 mMD0001 Meg Dumont, 5-Nov-1982 16:01 
Clear user handling of EOT on deaccess of file 
V02-004 MCNO0003 a del C. 10-Jun-1980 


Add EOF3 Label - ytd of HORS. processing 


LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

REQUIRE ‘SRC$:MTADEF .B32'; 

FORWARD ROUTINE 
CLOSE FILE 


: LSCLOSE_FILE NOVALUE , ' CLOSE A FILE 

UPDVCB_STATUS : COMMON CALL NOV ' UPDATE VCB STATUS BITS 

WRITE_TRAILERS : LSWRITE_TRAILER NOVALUE; ! WRITE TRAILER LABEL SET 
EXTERN 

CURRENT_UCB : REF BBLOCK, ' ADDRESS OF CURRENT UNIT CONTROL BLOCK 

HDR1 : REF BBLOCK, ' ADDRESS OF HDR1(EOF1) LABEL 

HDR REF BBLOCK, ' ADDRESS OF HDR (EOFS) LABEL 

HDR : REF BBLOCK, ' ADDRESS OF HDR3(EOF3) LABEL 

HDR4 : REF BBLOCK; ' ADDRESS OF HDR4(EOF4) LABEL 
EXTERNAL ROUTINE 

SPACE_TM : COMMON_CALL NOVALUE ' Space of T 

SYSSFAO : ADDRESSING MODE CABSOLUTE). ' FORMAT "Asc cOTEUT 

WRITE_TM : LSWRITE_TM> ' WRITE ONE T 

WRITE-BLOCK : COMMON CALL; ' WRITE BLOCK” 


a aaa a a a a a a tk at = ts = = 2 ot = 8 = 2 2 2 8 = 2 2 ot st SS Ss 
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V02-005 REFORMAT Maria del C. Nasr 30-Jun-1980 
| 


(aR Jere ests ss SS SSSA SSS SS 
| 


SIDE EFFECTS: 
file closed on magnetic tape; logical end_of_tape set; 
partial file cleared 


Note: Logical end_of_tape will be set unless the 
user has tried to write over the EOF labels. This can happen 
if a user reads pass the TM after the data then does a write 
at that point. The write will fail at FOT preseueres time, and 
the user will get a status of SS$ ENDOFFILE. 
Like it was writing and when the MTAACP tries to close the 
file, the MTAACP must be sure that the user hasn't tried to do this. 


However the WCB now Looks 


1 
_ CLOSF bese 1984 02:11:05 AX-11 Bliss-32 V4.0-74 Page 3 
| ybe=000 1e3eb-1986 13:40:56 EMTAACP’SRESCLOSFL :835+1 9 O03 
; i 984 GLOBAL ROUTINE CLOSE_FILE : LS$CLOSE_FILE NOVALUE = 
9 B83 '++ 
0 138 : 
1 49 ' FUNCTIONAL DESCRIPTION: 
¢ Bree } this routine closes out current file 
4 0496 ' CALLING SEQUENCE: 
5 497 : close_file( 
6 0498 : 
7 ! INPUT PARAMETERS: 
8 } none 
0 ! IMPLICIT INPUTS: 
1 : current_ucb - address of current ucb 
¢ current_vcb - address of current vcb 
4 !' OUTPUT PARAMETERS: 
; } none 
7 ! IMPLICIT OUTPUTS: 
8 : none 
9 ' 
0 : 
1 ; 
2 : 
3 : 
4 ' 
| 
1 
be 


BEGIN 


EXTERNAL REGISTER 

COMMON_REG; 
ser has tried to write over the trailer labels then the 
ill be postioned after the first EOF. Therefore close 
as if nothing had been changed on the tape. 


IF .CURRENT_VCBCVCB$B_TM) EQL 2 
THEN 

BEG! 

SPACE_TM(1); 
KERNEL _CALL(UPDVCB_STATUS.0) ! Set not at logical EOV 


! If the u 
' MTAACP w 
! the file 
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! if oniy the headers have been written without the tm before the data 


-- 
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' Go to TM after trailer labels 
| 


D1 
CLOSE 16-Sep-1984 02:11:05 YAX~11_Bliss-32 v4.0-74 Page 
vO4= 050 1e=8b-1984 13:40:56 EAYAACP’SREScLOSF L032; el 


; Routine Size: 65 bytes, Routine Base: S$CODE$ + 0000 


164 4 ' then write this tm first | 3 
| i res | 
18 36 F .CURRENT_VCBLVCB$B_TM] EQL 0 
169 035) t e . “ ; 
170 09 : WRITE_TM(); 
1% baa IF_.CURRENT_VCBCVCB$B_TM] EQL 1 ; 
17 0555 THEN : 
174 0996 WRITE_TRAILERS('F"); : 
175 93> : 
176 56 WRITE_TM(); : 
177 0559 WRITE-TM(); : 
178 0560 KERNEC_CALL(UPDVCB_STATUS,1); ! Set Logical EOV : 
179 0561 2 END; ; 
180 0562 1 END: ; 
-TITLE CLOSFL : 
-IDENT \V04-000\ : 
-EXTRN CURRENT_UCB, HDR1 : 
.EXTRN HDR2, HBR3, HDR4 : 
-EXTRN SPACE_TM, SYSSFAO ; 
.EXTRN WRITE-TM, WRITE_BLOCK : 
SEXTRN SYSS$CAKRNL : 
-PSECT $CODE$,NOWRT,2 : 
02 2E AB 91 00000 CLOSE_FILE:: : 
CMPB  46(CURRENT_VCB), #2 : 0538 : 
0B 12 00004 BNEQ  1$ : : 
01 DD 00006 PUSHL : 0541 
00006 CF 01 FB 00008 CALLS #1, SPACE_TM : 
7E D4 0000D CLRL 3s = §P) > 0542 
20 11 0000F BRB 4 : 
2E AB 95 00011 1$ TSTB  46(CURRENT_VCB) : 0550 
0 12 0014 BNEQ 2$ : 
00006 30 00016 BSBW WRITE_TM : 0552 
01 2—E AB 91 00019 28 CMPB © 46(CURRENT_VCB), #1 : 0554 
OA 12 91D BNEQ : 
7E 46 8F 9A OO01F MOVZBL #70, -(SP) : 0556 
0090v 30 90 3 SBW  - WRITE_TRAILERS F 
5E 4 026 ADDL2 3 
00006 30 09 9 3$: BSBW = WRITE_TM : 0558 
00006 30 C BSBW = WRITE=TM : 0559 
01 DD 0002F PUSHL #1 : 0566 
gi DD 00031 4$ PUSHL #1 : 
E bb 00 3 PUSHL SP : 
0000v CF 9F 000 PUSHAB UPDVCB_STATUS : 
000000006 9F 04 FB 0039 CALLS #4, a#SYSSCMKRNL : 
05 00040 RSB : 0562 
| 
J 


ES 


F 
CLOSF 1$- ep-1984 5 AX-11 Bi iat =32 V4.0-74 Pa 6 
voe=000 14S sep 4 13:18 % MTAACP, SRC] CLOSFL.B32; - (3) 


; 18? 266 ! GLOBAL ROUTINE WRITE_TRAILERS (END_FLAG) : LSWRITE_TRAILER NOVALUE = | 
s 185 566 1 lee 

; «4186 67 1! 

: «187 568 1 ! FUNCTIONAL DESCRIPTION: 

>; «4188 8269 zz This routine writes out eof(v)1, eof(v)2, eof(v)3 and eof(v)4 
; 138 B2n0 : system tabels. 

: «6191 0378 1! CALLING SEQUENCE: 

; 13¢ 0575 1! write_trailer(arg1) 

: 19 0574 1! 

3; 194 §272 1 ! INPUT PARAMETERS: 

3 199 576 1! argi - ‘v' for end of volume 

: 196 0577 1! ‘f* for end of file 

: 197 0578 1! 

: 198 0579 1 =! IMPLICIT INPUTS: 

; 199 0580 1! none 

: 200 0581 1! 

: 201 bees 1 ! OUTPUT PARAMETERS: 

3 $06 05835 1! none 

: 20 0584 1! 

; 204 0585 1 ! IMPLICIT OUTPUTS: 

: 25 0586 1! system trailer label written to tape 

; 206 0587 1! 

; 207 0588 1 ! ROUTINE VALUE: 

: 208 0589 1! none 

: 209 0590 1! 

: 210 0591 1 ! SIDE EFFECTS: 

; 2} b208 2 3 none 

; sig 05935 1! 

s 2 0594 1 !<- 

3 sié 0595 1 

s 21s 0596 BEGIN 

: 216 0597 

: ev 0598 EXTERNAL REGISTER 

; 218 0599 COMMON_REG; 

: 219 0600 2 

: 220 0601 LOCAL 

F $s) st BLCNT_DESC : VECTOR (2); 

; $55 0604 ' calculate block count by nneresseny the block count after the tape mark 
; $se Be83 ' at the start of the data area from the current block count 
Z § Oeo? BLCNT_DESC(0) = = folts BLOCKCNT; 

; 8 BLCNT~DESCL1 FO $1 -BLOEKCNTI; 

3 8 0609 OYSSFAOCDESCR PTOR(* '6ZL* 

; 9 0610 

; 0 sah BLCN 

: 1 ocis BONERS OCSCUCBSL RECORD] - .CURRENT_VCBCVCBS$L_ST_RECORD]); 
3 3§ pele ! format eof! trailer 

: 3 BG16 WORIEEOTSL -EOILID] = ‘EOF; 

: 36 oei8 (,HDR1)<16; 8> = .END_FLAG<O, 8>; ' either f or v 
; Hf 19 ! write tm plus eof! 

; 239 0620 
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1 
1B-se 1984 02:11:05 AX-11 Bliss-32 V4.0-74 
1 =300 71382 93:16:90 MTAACP. RCICLOSFL B32; 
WRITE_TMQ); 
WRITE_BLOCK(.HDR1, ANSI_LBLSZ); 
! Check the label count sure that we aren't writing extra headers onto the 
' the tape. This means that whatever number of Labels with which the file 
! was opened we must ensure that only that number gets written on the file 
! close, else we violate the ANSI standard. 
{Fg CURRENT VCBCVCBSS_LOL CNT GEQ 2 
BEGIN 


! format and write eof2 


HDR2CEO2$L_EO2LID) = ‘EOF2': 
(.HDR2)<16, 8> = .END_FLAG<O, 8>; 
WRITE _BLOCK(.HDR2, ANSI_LBLS2); 


' Format and write eof3 and eof4, if mount switch (/NOHDR3 or /INTERCHANGE) 
' allows it. 


IF _ (NOT .CURRENT_VCBLVCBSV_NOHDR3]) 
IN 
HORSCEO3$L_EQ3LID1 = "EOFS": 
(.HDR3)<16, 8> = .END_FLAG<O, 8>; 
WRITE_BLOCK(.HDR3, ANSI_LBLS2); 
IF .CURRENT_VCBCVCB$B_LBLCNT) GTR 3 
THEN 
GIN 
HDR4CEO4S$L_EO4LID] = "EOF4'; 
HDR4) <1 


(HD ; 8> = END FLAG<O, 8>; 
WRITE_BLOCK(.HDR4, ANSI_LBLS2); 


END; 
END; 
END; 
END: ! END OF ROUTINE 
4C SA 36 21 00041 P.AAB: .ASCII \!6ZL\ 
00045 ‘BLKB 3 
99000004 00048 P.AAA: . LONG 4 
0000000" 0004¢ -ADDRESS P.AAB 
5E 04 C2 00000 WRITE_TRAILERS:: 
UBL2 #4, SP 
06 DD 0000 PUSHL @# 
00006 CF 6 ¢1 0000 ADDL3 #54, HDR1, BLCNT_DESC+4 
50 00006 CF 09 000C MOVL CURRENT u¢B, 
0080 6 C0 AB ' oot SUBL3. 48(CURRENT_VCB), 176(RO), -(SP) 
4 AE 9F 00018 PUSHAB BLCNT_DESC 
7E 04 00018 CLRL = = (SP) 
D8 AF 9F 00010 PUSHAB P.AAA 


oF 
DF 31464F45 
10 oc 
7E 50 

00006 
CF 
02 48 
50 006 
60 32406er 45 
AO 
7E 
CF 

2c 

50 00006 
60 ome 
AO 
7E 
CF 
03 48 
50 00006 
60 34464F45 
AO 0c 
7E 50 
CF 
5E 
Base: 
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Ooooooooo 
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SCODES + 0050 


pa19B4 18:46: . Lestat cost: 


WR mitt 
#80, =(SP) 
HOR{ 


a3 WRITE_BLOCK 
72(CURRENT_VCB), #2 


HDR 2 

#84 4o8or3 (RO) 
END_FLAG, 2(RO) 
i =(SP) 


WRITE_BLOCK 
64 (CURRENT. vCB) 


PoE 5 4429 (RO) 
END_FLAG, 2(RO) 
80, =(SP) 


9S WRITE BLOCK 
72(CURRENT_VCB), #3 


HDR4 
HBr rb28045 (RO) 
END_FLAG, 2(RO) 
#80; -(SP) 


R 
#2, WRITE_BLOCK 
#8, SP 


Pete Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Fe Fe Ge Ge Ge Ge Fe Ge Be Ge Be Ge Ge Ge Ge Ge Se Be Ge Ge 


1 
vos-060 HE$goc1984 QB:1L:85  YaNGLL oLiescs3.yé.gs74g Pat 43 


3 0 es } ROUTINE UPDVCB_STATUS(LEOV) : COMMON_CALL NOVALUE = 
: 28 662 1 !++ 
; 88 $8 1} 
> 284 beee 1 ! FUNCTIONAL DESCRIPTION: 
: #4 29? : this routine updates the status bits in the current vcb 
; 287 Oe? 1 ! CALLING SEQUENCE: 
; «288 668 1! updvcb_status(LEOV), called in kernel mode 
; 588 0669 1! 
; 90 0670 1 ! INPUT PARAMETERS: 
; al por) 1} Value to set poptcat end of volume 
: 4 ors 1: 0 = clear bit not logical EOV 
3; 29 0675 1! = set bit at logical EOV 
; 294 0674 1! 
: 3.44 0675 1 ! IMPLICIT INPUTS: 
3; ef 0676 1! current_vcb = address of current volume control block 
; 297 0677 1! 
; 298 0678 1 ! OUTPUT PARAMETERS: 
3 444 0679 1! none 
; 300 0680 1! 
; 301 0681 1 ! IMPLICIT OUTPUTS: ieee 
; 308 B98 : status set to at logical end of tape with no partial file 
; 304 0684 1 ! ROUTINE VALUE: 
: 305 0685 1! none 
: 306 0686 1! 
; 307 0687 1 ! SIDE EFFECTS: 
; 308 0688 1! none 
; 4 0689 1! 
s S10 0690 1 !-- 
; 31! 0691 1 
; ig 069 BEGIN 
3s 3 069 
3 314 0694 EXTERNAL REGISTER 
s 3513 0695 2 COMMON_REG; 
: 316 0696 2 
3 SV 0697 2 CURRENT_VCBCVCB$V_LOGICEOVS] = .LEOV; 
; se 0698 § CURRENT_VCB Se ase he = 0; 
; 319 0699 CURRENT_VCBCVCBS$V_PARTFILE) = 0; 3 
: 320 0700 2 CURRENT_VCBLVCBSV_ENUSEREOTJ= 0; ! reset user enables EOT bend ing 
: $5! 144 § CURRENT_VCBCVCBSV_FIL_ACCESSJ= 6; ! reset users’ accessibility to file 
; 358 0703 1 END; ! end of roucine 
0000 00000 UPDVCB_STATUS: ; 
«WORD Save nothing ; 0660 
OB AB 1 01 04 aC FO 00002 INSV LEOV, #1, #1, 11°(CURRENT_VCB) : 0697 
0B AB 41 af BA 0009 B1 CB #65, 11 (CURRENT_VCB) : 0699 
2D =6AB 42 F BA id BICB #66, 45(CURRENT_VCB) ; 0701 
04 0001 RET ; 0703 


; Routine Size: 20 bytes, Routine Base: S$CODE$ + 0101 


i 4 
CLOSFL 16-Sep-1984 02:11:05 AX-11 Bliss-32 V4.0-742 Page 10 
v04-000 1e-8ee= 1386 $3ikaise  Eatance’saeicroste o3o04 nal 
3 4 0704 1 
; 5 0705 1 END 
3 6 o708 1 
3 e7? 0707 O ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 277 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: -------- Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 20 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CLOSFL/OBJ=OBJ$:CLOSFL MSRCS$:CLOSFL/UPDATE=(ENH$:CLOSFL) 


Size: 262 code + 15 data bytes 
Run Time: :09. 
Elapsed Time: 00:31. 
Lines/CPU Min: 4615 


Lexemes/CPU-Min: 19664 — 
Memory Used: 93 pages 


; Compication Complete 
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